home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b2.d64 / wordgame < prev    next >
Text File  |  2007-02-28  |  2KB  |  69 lines
  1. 0010 DIM MYWORD$(5) OF 20, YOURWORD$ OF 20
  2. 0020 DIM SPACES$ OF 39, CH$ OF 1, CATCH$ OF 100
  3. 0030 SPACES$(1:39):=""
  4. 0040 PRINT CHR$(147) //CLEAR SCREEN
  5. 0050 //
  6. 0060 INTRODUCTION
  7. 0070 WORDGAME
  8. 0080 RESULT
  9. 0090 //
  10. 0100 PROC INTRODUCTION 
  11. 0110 WINDOW(8,20)
  12. 0120 PRINT "IN THIS GAME FIVE WORDS"
  13. 0130 PRINT "ARE DISPLAYED. THEY WILL BE"
  14. 0140 PRINT "ON THE SCREEN FOR ABOUT FIVE SECONDS."
  15. 0150 PRINT "THEN THEY DISSAPEAR, AND YOU ARE"
  16. 0160 PRINT "ASKED TO TYPE IN AS MANY OF THEM"
  17. 0170 PRINT "AS YOU CAN REMEMBER."
  18. 0180 PRINT 
  19. 0190 INPUT "PRESS RETURN KEY TO CONTINUE: ": CH$
  20. 0200 WINDOW(8,20)
  21. 0210 PRINT "--------------------------"
  22. 0220 FOR I:=1 TO 5 DO
  23. 0230 READ MYWORD$(I)
  24. 0240 PRINT TAB(5),MYWORD$(I)
  25. 0250 ENDFOR I
  26. 0260 PRINT "--------------------------"
  27. 0270 ENDPROC INTRODUCTION
  28. 0280 //
  29. 0290 PROC WORDGAME 
  30. 0300 WAIT(5)
  31. 0310 FOR NO:=1 TO 5 DO
  32. 0320 WINDOW(8,15)
  33. 0330 PRINT "TYPE IN YOUR ",NO,". WORD: ",
  34. 0340 INPUT "": YOURWORD$
  35. 0350 I:=1
  36. 0360 WHILE YOURWORD$<>MYWORD$(I) AND I<5 DO
  37. 0364 I:=I+1
  38. 0368 ENDWHILE 
  39. 0370 PRINT 
  40. 0380 IF YOURWORD$=MYWORD$(I) THEN
  41. 0390 CATCH$:=CATCH$+YOURWORD$+" "
  42. 0400 ENDIF 
  43. 0410 ENDFOR NO
  44. 0420 ENDPROC WORDGAME
  45. 0430 //
  46. 0440 PROC RESULT 
  47. 0450 WINDOW(8,15)
  48. 0460 PRINT "MINE: ",
  49. 0470 FOR NO:=1 TO 5 DO PRINT MYWORD$(NO);
  50. 0480 FOR I:=1 TO 2 DO PRINT 
  51. 0490 PRINT "YOURS: ",
  52. 0500 PRINT CATCH$
  53. 0510 ENDPROC RESULT
  54. 0520 //
  55. 0530 PROC WINDOW(X,Y) 
  56. 0540 PRINT CHR$(19), //HOME
  57. 0550 FOR I:=1 TO X DO PRINT  //DOWN X LINES
  58. 0560 FOR I:=1 TO Y-X+1 DO PRINT SPACES$ //CLEAR LINES
  59. 0570 PRINT CHR$(19) //HOME AGAIN
  60. 0580 FOR I:=1 TO X DO PRINT  //DOWN TO START
  61. 0590 ENDPROC WINDOW
  62. 0600 //
  63. 0610 PROC WAIT(T) 
  64. 0620 FOR I:=1 TO 900*T DO
  65. 0630 ENDFOR I
  66. 0640 ENDPROC WAIT
  67. 0650 //
  68. 0660 DATA "FISH","DOVE","HORSE","CAT","OWL"
  69.